home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / alpha / examples / agacheck.d next >
Encoding:
Text File  |  2002-10-28  |  350 b   |  15 lines
  1. MODULE 'graphics/gfxbase'
  2.  
  3. PROC main()
  4.     IF GfxBase::GfxBase.ChipRevBits0 & GFXF_HR_AGNUS THEN PrintF('32K Blitter\n')
  5.     IF GfxBase::GfxBase.ChipRevBits0 & GFXF_AA_ALICE
  6.       PrintF('AGA\n')
  7.     ELSE
  8.       IF GfxBase::GfxBase.ChipRevBits0 & GFXF_HR_DENISE
  9.         PrintF('ECS\n')
  10.       ELSE
  11.         PrintF('OCS\n')
  12.       ENDIF
  13.     ENDIF
  14. ENDPROC
  15.